From ae60ed1ace97b29c54f22fa887b8038a1046978a Mon Sep 17 00:00:00 2001 From: Miles Bader Date: Mon, 20 May 2002 04:40:40 +0000 Subject: [PATCH] (find-file-read-args): Don't trash existing value of `minibuffer-setup-hook', just add our hook to it. --- lisp/files.el | 13 ++++++++----- 1 file changed, 8 insertions(+), 5 deletions(-) diff --git a/lisp/files.el b/lisp/files.el index 2feadc8c121..9169ae9193b 100644 --- a/lisp/files.el +++ b/lisp/files.el @@ -773,12 +773,15 @@ documentation for additional customization information." (list (let ((find-file-default (and buffer-file-name (abbreviate-file-name buffer-file-name))) + (munge-default-fun + (lambda () + (setq minibuffer-default find-file-default) + ;; Clear out this hook so it does not interfere + ;; with any recursive minibuffer usage. + (pop minibuffer-setup-hook))) (minibuffer-setup-hook - '((lambda () - (setq minibuffer-default find-file-default) - ;; Clear out this hook so it does not interfere - ;; with any recursive minibuffer usage. - (setq minibuffer-setup-hook nil))))) + minibuffer-setup-hook)) + (add-hook 'minibuffer-setup-hook munge-default-fun) (read-file-name prompt nil default-directory)) current-prefix-arg)) -- 2.30.2